home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ddlnch10 / ddlnch.bas < prev    next >
BASIC Source File  |  1995-05-09  |  3KB  |  63 lines
  1. Global Const VERSION$ = "1.0"
  2. Global DDName As String             'the NAME of the DD Function
  3. Global DDCmdString As String        'The COMMAND string to send
  4. Global Const INIFILE = "DDLNCH.INI" 'basic INI file
  5. Global Const FILEMARKER = "<F>"     'wild cards searched for in the string
  6. Global Const DIRMARKER1 = "<D"      'dir wild card
  7. Global Const DIRMARKER2 = ">"
  8. Global Const LENDIRMARKER1 = 2
  9. Global Const LENDIRMARKER2 = 1
  10. Global Const LENFILEMARKER = 3
  11. Type POINTAPI           'used to identify location of drop action
  12.     x As Integer
  13.     y As Integer
  14. End Type
  15. Type Msg                'used by peekmessage function
  16.     hwnd As Integer
  17.     message As Integer
  18.     wparam As Integer
  19.     lParam As Long
  20.     time As Long
  21.     pt As POINTAPI
  22. End Type
  23. 'dragacceptfiles tells windows that hwnd can accept drag/drop messages
  24. Declare Sub DragAcceptFiles Lib "Shell" (ByVal hwnd As Integer, ByVal Accept As Integer)
  25. 'Main() uses peekmessage to determine if hwnd has received a d/d message
  26. Declare Function PeekMessage Lib "User" (lpMsg As Msg, ByVal hwnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer
  27. 'dragqueryfile is used to get number of files dropped (when indexFilenum=-1) and then name of each file in succession (when indexFilenum > -1)
  28. Declare Function DragQueryFile Lib "Shell" (ByVal hdrop As Integer, ByVal indexFilenum As Integer, ByVal lpFileName As String, ByVal buffsize As Integer) As Integer
  29. 'dragfinish must be called after all filenames have been retrieved to cancel memory buffer for d/d operation
  30. Declare Sub DragFinish Lib "Shell" (ByVal hwnd As Integer)
  31. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  32. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  33. Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
  34.  
  35.  
  36. ' WindowState
  37. Global Const NORMAL = 0    ' 0 - Normal
  38. Global Const MINIMIZED = 1 ' 1 - Minimized
  39. Global Const MAXIMIZED = 2 ' 2 - Maximized
  40.  
  41. 'Common Dialog Control
  42. '-----------------------------------
  43. 'Action Property
  44. Global Const DLG_FILE_OPEN = 1
  45. Global Const DLG_FILE_SAVE = 2
  46.  
  47. 'File Open/Save Dialog Flags
  48. Global Const OFN_READONLY = &H1&
  49. Global Const OFN_OVERWRITEPROMPT = &H2&
  50. Global Const OFN_HIDEREADONLY = &H4&
  51. Global Const OFN_NOCHANGEDIR = &H8&
  52. Global Const OFN_SHOWHELP = &H10&
  53. Global Const OFN_NOVALIDATE = &H100&
  54. Global Const OFN_ALLOWMULTISELECT = &H200&
  55. Global Const OFN_EXTENTIONDIFFERENT = &H400&
  56. Global Const OFN_PATHMUSTEXIST = &H800&
  57. Global Const OFN_FILEMUSTEXIST = &H1000&
  58. Global Const OFN_CREATEPROMPT = &H2000&
  59. Global Const OFN_SHAREAWARE = &H4000&
  60. Global Const OFN_NOREADONLYRETURN = &H8000&
  61. Global Const MYFLAGSET = &H8804&
  62.  
  63.